5 DV=PEEK(186):IFDV<8THENDV=8
100 GOTO1910
110 REM
120 REM
130 REM
140 DIMW(99,2):LV=0
150 W(4,1)=33:W(4,2)=5:FORB=6TO13:W(B,1)=21:W(B,2)=55:NEXT
160 W(82,1)=129:W(82,2)=250:W(50,1)=129:W(50,2)=250
170 W(99,1)=21:W(99,2)=250
180 W(1,1)=17:W(1,2)=50:SL$="                                       "
190 W(3,1)=65:W(3,2)=15:W(5,1)=85:W(5,2)=30:W(26,1)=129:W(26,2)=25
200 X=2:Y=1:CL=13:CH=82
210 PRINT"[147]":POKE53281,12:POKE53280,12:D=.:X1=.:X2=.:X3=.:OK=.
220 FORT=54272TO54295:POKET,0:NEXT:POKE54296,15:IFLV>5THENLV=5
230 AD=1*16+0:SR=15*16+2
240 POKE54284,AD:POKE54285,SR:POKE54282,0:POKE54281,255
250 GOTO1210
260 PRINT"[144]";:REMPOKE53265,PEEK(53265)AND239
270 PRINT"[147]":POKE53281,12:POKE53280,12:D=.:X1=.:X2=.:X3=.:OK=.
280 X=2:Y=1:CL=13:CH=82:N=N+1
290 ML=1:LOADF$,DV,1
300 ML=2:LOADF$+"/C",DV,1
310 ML=3:ON N GOTO1310,1390,1500,1560,1630,1710,1770,1820
320 STOP
330 IFA$="D"THENPRINT""A$;:GOTO420
340 IFASC(A$)>69ANDASC(A$)<78THENPRINT"[151]"A$;:GOTO420
350 IFA$="P"THENPRINT"[144]"A$;:GOTO420
360 IFA$="Z"THENPRINT""A$;:GOTO420
370 IFA$="[210]"THENPRINT"[153]"A$;:GOTO420
380 IFA$="[163]"THENPRINT""A$;:GOTO420
390 IFA$="[209]"THENPRINT"[154]"A$;:GOTO420
400 PRINT"[153]"A$;:IFA$=CHR$(32)THEN65535
410 IFA$=CHR$(13)THEN440
420 CI=ASC(A$)-64
430 POKE54283,W(CI,1):POKE54280,W(CI,2):POKE54283,ABS(W(CI,1)-1):GOTO65535
440 NEXT:CLOSE2:GOTO530
450 CLOSE2:IFST=64THEN530
460 PRINT"[144]":FORG=1TO7:PRINTSL$:NEXT
470 POKE53265,PEEK(53265)OR16:PRINT"  WE'RE SORRY...YOUR FILE MAY NOT BE"
480 PRINT"LOADED AS COMMANDED.  PLEASE CHECK DISK"
490 PRINT"IN DRIVE AND PRESS FIRE TO TRY AGAIN..."
500 PRINT"OR CONSULT INSTRUCTION MANUAL.THANK YOU":PRINTSL$:PRINT"[145]";LEFT$(SL$,19);
510 IFPEEK(56320)=127THENPOKE646,ABS(PEEK(646)-1):PRINT"O[157]";:GOTO510
520 PRINT"":FORG=1TO7:PRINTSL$:NEXT:GOTO260
530 IFX=2THENPRINT"[144]O":POKE53265,PEEK(53265)OR16:GOTO550
540 IFX=12THENPRINT"O":POKE53265,PEEK(53265)OR16
550 FORT=54272TO54295:POKET,0:NEXT:POKE54296,15
560 AD=1*16+0:SR=15*16+2
570 POKE54284,AD:POKE54285,SR:POKE54282,0:POKE54281,255
580 IFPEEK(56320)<>127THENJ=PEEK(56320):GOTO620
590 Q=PEEK(54272+(1023+X+(Y*40))):POKE54272+(1023+X+(Y*40)),ABS((Q)-1):GOTO580
600 IFPEEK(56320)=127ANDD<>2THEN600
610 J=PEEK(56320)
620 IFJ=119THENX1=1023+X+1:X2=Y*40:IFPEEK(X1+X2)<5ORPEEK(X1+X2)=82THEN730
630 IFJ=123THENX1=1023+X-1:X2=Y*40:IFPEEK(X1+X2)<5ORPEEK(X1+X2)=82THEN730
640 IFJ=126THENX1=1023+X:X2=Y-1:X3=X2*40:IFPEEK(X1+X3)=1THEN730
650 IFJ=125THENX1=1023+X:X3=(Y+1)*40:IFPEEK(X1+X3)=1ORPEEK(X1+X3)=32THEN730
660 IFJ=119THENX1=1023+X+1:X2=Y*40:IFPEEK(X1+X2)=32ORPEEK(X1+X2)=99THEN730
670 IFJ=123THENX1=1023+X-1:X2=Y*40:IFPEEK(X1+X2)=32ORPEEK(X1+X2)=99THEN730
680 IFJ=111THENRETURN
690 IFD<>2THEN600
700 IFD=2ANDSM=.THENJ=126:GOTO730
710 IFSM=1THEN1140
720 GOTO600
730 IFD=2ANDJ<>126THEND=.:SM=.
740 X1=1023+X:X2=Y*40:X3=X1+X2:POKEX3,CH:POKE54272+X3,CL
750 IFJ=119THENX=X+1
760 IFJ=123THENX=X-1
770 IFJ=126THENY=Y-1
780 IFJ=125THENY=Y+1
790 X3=1023+X+Y*40:CH=PEEK(X3):CL=PEEK(54272+X3)
800 POKE54283,.:POKE54280,.
810 POKE54283,W(CH,1):POKE54280,W(CH,2):POKE54283,ABS(W(CH,1)-1)
820 OK=PEEK(X3)
830 IFCH=3THENCH=5:CL=9
840 POKEX3,15:POKEX3+54272,0:IFOK<>32ANDD<>1THEN600
850 IFOK=2ORD=2THEND=2:GOTO1110
860 IFOK=32THEND=1:J=125:POKE54283,21:POKE54280,Y*9:POKE54283,20:GOTO730
870 IFCH=99THEND=0:GOTO600
880 X1=1023+X:X2=Y*40:GOSUB1150:FORT=65TO73:POKEX1+X2,T:FORH=1TO80:NEXT:NEXT
890 POKE54283,0
900 IFOK=3THEN940
910 IFOK=19THEN940
920 X1=1023+X:X2=Y*40:X3=X1+X2:POKEX3,CH:POKE54272+X3,CL
930 GOTO1160
940 ON JP+1 GOTO960,990,1030,1070,950
950 END
960 IFOK<>19THEN1160
970 IFJP=0THENJP=1:PRINT"[147]YOU^MAY^ADVANCE^TO^THE^NEXT^LEVEL[146]!"
980 F$="MAZE 2":LV=LV+1:FORG=1TO2500:NEXT:GOTO200
990 X3=1023+X+(Y+1)*40:Z=PEEK(X3):IFZ=32THENOK=32:CH=5:CL=9:GOTO860
1000 IFOK<>19THEN1160
1010 PRINT"[147]NEXT^LEVEL"
1020 JP=2:FORG=1TO2500:NEXT:F$="MAZE 3":LV=LV+1:GOTO200
1030 X3=1023+X+(Y+1)*40:Z=PEEK(X3):IFZ=32THENOK=32:CH=5:CL=9:GOTO860
1040 IFOK<>19THEN1160
1050 PRINT"[147]NEXT^LEVEL"
1060 JP=3:FORG=1TO2500:NEXT:F$="MAZE 4":X=12:Y=20:CH=1:CL=0:LV=LV+1:GOTO210
1070 X3=1023+X+(Y+1)*40:Z=PEEK(X3):IFZ=32THENOK=32:CH=5:CL=9:GOTO860
1080 IFOK<>19THEN1160
1090 PRINT"[147]THAT'S^IT![146]":END
1100 LV=LV+1:JP=4:F$="MAZE 5":GOTO200
1110 IFPEEK(X3-40)=32THENJ=126:POKE54283,21:POKE54280,Y*9:POKE54283,20:GOTO600
1120 IFPEEK(X3-40)=99THEND=.:J=126:GOTO730
1130 J=PEEK(56320):IFJ=119ORJ=123THENSM=1:GOTO620
1140 J=111:GOTO680
1150 POKE54283,129:POKE54280,5:RETURN
1160 POKE646,ABS(PEEK(646)-1):PRINT" YOU"
1170 PRINT"DIED":X=2:Y=1:CL=13:CH=82
1180 X1=.:X2=.:X3=.:OK=.:D=.:GOTO530
1190 PRINT"[147]YOU WERE LUCKY THIS TIME[146]!"
1200 F$="MAZE 1":LV=LV-1
1210 PRINT"[147][153]  WELCOME TO THE ALL SMILES TUTORIAL [146]O"
1220 PRINT:PRINT"  I WILL GUIDE YOU THROUGH A SERIES OF"
1230 PRINT:PRINT"MINI-MAZES THAT ARE SIMILAR TO ONES YOU"
1240 PRINT:PRINT" WILL BE TRAVELING THROUGH IN THE REAL"
1250 PRINT:PRINT"GAME WHERE YOUR LIFE DEPENDS ON KNOWING"
1260 PRINT:PRINT" HOW TO PLAY.  YOU ARE THE [146]O.  YOU MOVE"
1270 PRINT:PRINT"     WITH THE JOYSTICK IN PORT 2."
1280 PRINT:PRINT"   PRESS THE FIRE BUTTON TO BEGIN..."
1290 IFPEEK(56320)=127THEN1290
1300 F$="TUT 1":GOSUB260
1310 PRINT"";
1320 PRINT"  YOU MAY WALK ON THE GREEN FLOOR."
1330 PRINT"  YOU MAY NOT PASS THROUGH A BRICK WALL"
1340 PRINT"  TRY WALKING LEFT AND RIGHT"
1350 PRINT"  TRY WALKING THROUGH A WALL"
1360 PRINT"  NOTICE THE SOUND PRODUCED WHEN WALKING"
1370 PRINT"  WHEN YOU ARE DONE, PRESS FIRE":GOSUB530
1380 F$="TUT 2":GOTO260
1390 PRINT"[153]";
1400 PRINT"YOU MAY MOVE UP & DOWN ON BLACK LADDERS"
1410 PRINT"IF THERE IS A LADDER ABOVE YOU, YOU MAY"
1420 PRINT"  MOVE UP."
1430 PRINT"IF THERE IS A LADDER BELOW YOU, YOU MAY"
1440 PRINT"  MOVE DOWN."
1450 PRINT"BE CAREFUL OF LADDERS THAT TAKE YOU UP,"
1460 PRINT"  BUT WON'T TAKE YOU DOWN AND VISE-VERSA"
1470 PRINT"PRESS FIRE WHEN YOU ARE DONE."
1480 GOSUB530
1490 F$="TUT 3":GOTO260
1500 PRINT"[153]";
1510 PRINT"[153]YOU MAY MOVE ACROSS THE DARK GREEN
1520 [153]"  HAND-OVER-HAND BARS."
1530 [153]"YOU MAY MOVE LEFT & RIGHT ON THEM"
1540 [153]:[153]"PRESS FIRE WHEN YOU ARE FINISHED.":[141]530
1550 F$[178]"TUT 4":[137]260
1560 [153]"PRINT";
1570 [153]"PRINTYOU MAY PASS THROUGH THE WHITE DOORS"
1580 [153]"ONCE THE DOOR HAS BEEN PASSED THROUGH"
1590 [153]"  IT TURNS INTO AN IMPASSABLE WALL."
1600 [153]:[153]"PRESS FIRE TO CONTINUE"
1610 [141]530
1620 F$[178]"TUT 5":[137]260
1630 [153]"PRINT";
1640 [153]"PRINTTRY JUMPING ONTO THE WAITB."
1650 [153]"AS YOU MOVE UPWARDS, YOU MAY MOVE LEFT &";
1660 [153]"  RIGHT ONTO PLATFORMS AND SUCH."
1670 [153]"EXPERIMENT WITH THE TRAMPOLINES"
1680 [153]:[153]"PRESS FIRE TO GO ON."
1690 [141]530
1700 F$[178]"TUT 6":[137]260
1710 [153]"PRINT";
1720 [153]"PRINTTRY FALLING FROM THE HAND BARS."
1730 [153]"NOTICE YOU CAN FALL LONG DISTANCES IF";
1740 [153]"   YOU LAND ON ANOTHER HAND BAR."
1750 [153]:[153]"PRESS FIRE AFTER TESTING THIS OUT.":[141]530
1760 F$[178]"TUT 7":[137]260
1770 [153]"PRINT";
1780 [153]"PRINTNOW LET'S SEE WHAT HAPPENS WHEN YOU"
1790 [153]"  DIE."
1800 [153]"TRY JUMPING TO YOUR DEATH."
1810 [153]"PRESS FIRE WHEN YOU ARE THROUGH DYING":[141]530
1820 [153]"LOADPRESS FIRE BUTTON TO RETURN TO THE "
1830 [153]"ALL SMILES MENU"
1832 [139][194](56320)[178]127[167]1832
1840 [151]53272,21
1850 [153]"LOAD":[151]52,160:[151]56,160:[151]53272,([194](53272)[175]240)[176]4:[147]"AS MENU",DV
1860 [153]"LOADNEWCMDCMDCMD"
1870 [153]"LOAD"[199](34)"ALL SMILES"[199](34)","DV
1880 [153]"RUN";
1890 [151]198,5:[129]T[178]1[164]5:[151]630[170]T,13:[130]:[128]
1900 [128]
1910 [139]ML[178]1[167]300
1920 [139]ML[178]2[167]310
1930 [139]ML[178]3[167]260
1940 [139]ML[178]8[167]110
1950 [151]56334,[194](56334)[176]1:[151]53272,([194](53272)[175]240)[170]12
1960 [139][194](12288)[178]60[167]110
1970 ML[178]8:[158]57812"PARTS",DV:[151]780,0:[151]781,0:[151]782,48:[158]65493:[137]5
1980 [129]I[178].[164]255:[129]J[178].[164]7:[161]#1,A$:[151]12288[170]J[170]I[172]8,[198](A$[170][199](.)):[130]J,I
1990 [160]2:[137]110
9999 [128]
10000 D[178][194](186):N$[178]"AS TUT":[159]15,D,15,"S0:"[170]N$:[160]15:[148]N$,D
10001 [149]N$,D:[128]